home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / diskmags / 3565-4.665 / dmg-4180 / source.4u / riley.ben / txt_rast.bas (.txt) < prev    next >
Atari STOS Basic  |  1987-04-21  |  2KB  |  70 lines
  1. 10 REM *=*=*=*=*=*=*=*=*=*=*=*=*
  2. 100 REM 
  3. 110 FADE
  4. 120 KEY
  5. 130 OFF
  6. 140 WRITING
  7. 150 REM 
  8. 160 REM { Print text... }
  9. 170 REM 
  10. 180 LOCATE
  11. 190 PEN
  12. 20 REM 
  13. 200 CENTRE
  14. 210 CDOWN
  15. 220 CENTRE
  16. 230 CDOWN
  17. 240 CENTRE
  18. 250 CDOWN
  19. 260 CENTRE
  20. 270 CDOWN
  21. 280 CENTRE
  22. 290 CDOWN
  23. 30 REM  An example of scrolling
  24. 300 CENTRE
  25. 310 CDOWN
  26. 320 CENTRE
  27. 330 CDOWN
  28. 340 CENTRE
  29. 350 CENTRE
  30. 360 CENTRE
  31. 370 CDOWN
  32. 380 CENTRE
  33. 390 CDOWN
  34. 40 REM   rasters through text
  35. 400 CENTRE
  36. 410 CDOWN
  37. 420 CENTRE
  38. 430 CDOWN
  39. 440 CDOWN
  40. 450 CENTRE
  41. 460 CDOWN
  42. 470 CENTRE
  43. 480 CDOWN
  44. 490 CENTRE
  45. 50 REM      by Ben of FRS
  46. 500 VARNAME
  47. 510 FADE
  48. 520 REM 
  49. 530 REM { Simple raster routine }
  50. 540 REM 
  51. 550 VARNAME
  52. 560 RESTORE
  53. 570 FOR
  54. 580 NEXT
  55. 590 FOR
  56. 60 REM change delay if compiling
  57. 600 READ
  58. 610 DOKE
  59. 620 NEXT
  60. 630 VARNAME
  61. 640 IF
  62. 650 REM 
  63. 660 REM { Colour data for rasters }
  64. 670 REM 
  65. 680 DATA
  66. 690 DATA
  67. 70 REM   or rasters go to fast
  68. 80 REM 
  69. 90 REM *=*=*=*=*=*=*=*=*=*=*=*=*
  70.